home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 April / 1986-04.d64 / input demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  310b  |  14 lines
  1. 100 ifa=0thena=1:load"input.obj",8,1
  2. 110 print"[147]":poke53281,1:print"enter your name- ";
  3. 120 lng=22:typ=0:gosub210
  4. 130 print:printt$:print"enter the price-$";
  5. 140 lng=5:typ=1:gosub210
  6. 150 ift1>99.99then140
  7. 160 print:printt1:print:print"more (y/n)?"
  8. 170 wait198,1:getk$
  9. 180 ifk$="y"then110
  10. 190 ifk$<>"n"then170
  11. 200 end
  12. 210 poke142,lng:poke143,typ:sys49152:if(st and 1)thent$="":t1=0
  13. 220 return
  14.